Shareware Grab Bag/Shareware Grab Bag.iso/007/function.arc/FUNC43.INC

Text File | 1985-06-15 | 512 b | 22 lines

{ Change file attribute                                                }

FUNCTION Func43 (S, O : INTEGER; B : BOOLEAN; A : INTEGER) : BOOLEAN;
 BEGIN
  WITH Registers DO
   BEGIN
    AX:=$4300;
    IF B THEN
     BEGIN
      AX:=(AX OR $01);
      CX:=A;
     END;
    DX:=O;
    DS:=S;
    MSDOS (Registers);
    IF (Flags AND $0001)=1 THEN
     Func43:=TRUE
    ELSE
     Func43:=FALSE;
   END;
 END;